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JBCPRSDEF .REQ = Definitions for calls to JBCCMDPRS routines 
Version ‘v04-000' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE as FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF rave” LICENSE AND WITH THE 
INCLUSION OF THe ABOVE pid NOTICE. THIS SOF TWARE OR ANY OTHER 
COPIES THEREOF oy ay BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
lauasenee TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATION. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


i » FACILITY: 


Queue management utilities. 


| ABSTRACT: 


This file contains definitions needed to call the common qualifier 


parsing routines in module JBCCMDPRS. 


i ENVIRONMENT 


VAX/VMS user mode. 


AUTHOR: M. Jack, CREATION DATE: 30-Apr-1982 
i MODIFIED BY: 


v03-001 MLJ0112 Martin L. Jack, 29-Apr-1983 0:24 


Rename the routine specific parameters in PARSE_PARAMETERS_. 
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LINKAGE 
PARSE _LINKAGE_= CALL: GLOBAL ( 
Q_ICURSOR 
Q"DCURSOR 
Q"MESSAGE 
| Q"VALUE_D 
MACRO 
PARSE_CALL (NAME) = 
BEGIN 
EXTERNAL ROUTINE 


| 
| 
| 
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ZNAME(*PARSE_*, NAME): PARSE_LINKAGE; 


ZNAME ("PARSE_*, NAME) (ZREMAINING) 
END %, 


PARSE _CALL_VALUE (NAME) = 
BEGIN 
EXTERNAL ROUTINE 


RNAME('PARSE_*, NAME): PARSE_LINKAGE_VALUE; 


ZNAME ('PARSE_*, NAME) (ZREMAINING) 
END %, 


PARSE_LINKAGE= 


PARSE_LINKAGE_ NOVALUE %, 


PARSE _LINKAGE_VALUE= PARSE _LINKAGE_ %, 


PARSE PARAMETERS. = 
Q7DESC, Q_P1> Q_P2, Q_P3, O_P4 %, 


PARSE iftong | REGISTERS= 
EXTERNAL REGISTER 

Q_ICURSOR= 1 

o. ~DCURSOR= 1 

ME SSAGE= 9 

O° -VALUE_DESC= 8: 


PARSE GLOBAL _REGISTERS= 
GCOBAL REG 7 


Q" VALUE _DESC= 


KE YWORDMACRO 


1: REF BBLOCK, 
0: REF BBLOCK, 


REF BBLOCK 2, 


1: REF BBLOCK, 
0: REF BBLOCK, 


REF BBLOCK 2; 


PARSE _GLOBAL INIT(ICURSOR=,DCURSOR=, MESSAGE=, VALUE _DESC=)= 


Q-ICURSOR = ICURSOR; 


oo ee 
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Q_pcu 
O°RES 
Q7VAL 


poor 


RSOR = DCURSOR; 
SAGE = MESS 
LUE_DESC = “Facute DESC 2; 
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